//category string to search for 
  //" class="cattitle">
  
  dim i,n,pos,endPos as integer
  dim s,searchstring,quote as string 
  
  quote = chr(34)
  searchstring = quote + " class="+quote+"cattitle"+quote+">"
  pos = 0
  
  //scan the web page content
  //and attempt to locate instances 
  //of the search string
  while (pos<len(content)) and not(userCancelled)
    pos = instr(pos,content,searchstring)
    if pos>0 then
      pos=pos+len(searchstring)
      endPos = instr(pos,content,"</a>")
      if endPos>0 then
        //if we find one, remember its name
        //and the position in the text 
        //where we found it
        ForumNames.append mid(content,pos,endPos-pos)
        ForumPosition.append pos
        pos=endPos
      else
        pos=pos+1
      end if
    else
      pos = len(content)+1
    end if
  wend
  
  ProcessForumLinks(content,0)
  listBox1.deleteAllRows
  for i=1 to ubound(ForumNames)
    listBox1.addrow ForumNames(i)
  next
  ForumPosition.append len(content)